home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ENT_REF.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  150 lines
  1. ;\|
  2. ;ENT_REF.SRC     Translated from ENT_REF.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;ENT_REF  10:51:16 AM  10/ 7/90   |
  4.     define(MEM_DOC|N|1||)
  5.     define(CTR|N|2||)
  6.     define(MEM_DOC2|N|1||)
  7.     define(CON_CTR|N|2||)
  8.     define(EXTRAS|N|3||)
  9.     define(CON_NUM|N|3||)
  10.     define(CLIN_NUM|N|3||)
  11.     define(EMERG_NUM|N|3||)
  12.     define(ISIT_EMER|A|1||)
  13.     open(REFER||1|EXIT)
  14.     open(GPSETUP||0|)
  15.     define(MEM_DATE|S|8||)
  16.     find(B|HEADING|EXIT|)
  17.     trap(D|I)
  18.     trap(C|G|CLEAR)
  19.     trap(Q|G|EXIT)
  20.     mount(NEW|S)
  21. START:
  22.     enter(MEM_DOC|"12345"|||N|Y|N|||N)
  23.     enter(ISIT_EMER|"YN"|||Y|N|N|||N)
  24.     if ISIT_EMER = ("Y") goto SCR2
  25.     gosub SCREEN
  26.     enter(CON_NUM||||N|Y|N|||N)
  27.     if CON_NUM = (0) goto START
  28.     if CON_NUM > (44) goto START
  29.     gosub SCREEN2
  30.     enter(CLIN_NUM||||N|Y|N|||N)
  31.     if CLIN_NUM = (0) goto START
  32.     if CLIN_NUM > (44) goto START
  33. ADDER:
  34.     REF_COD = (MEM_DOC)
  35.     find(M|REF_COD|EXIT|)
  36.     if ISIT_EMER <> ("Y") do
  37.         {
  38.         CONS_REF[CON_NUM] = (CONS_REF[CON_NUM]+1)
  39.         CLIN_REF[CLIN_NUM] = (CLIN_REF[CLIN_NUM]+1)
  40.         }
  41.     else
  42.         {
  43.         EMERG_REF[EMERG_NUM] = (EMERG_REF[EMERG_NUM]+1)
  44.         }
  45.     save(REFER|Y|Y|START)
  46.     MEM_DOC = (0)
  47.     CLIN_NUM = (0)
  48.     CON_NUM = (0)
  49.     EMERG_NUM = (0)
  50.     ISIT_EMER = ("")
  51.     goto START
  52. EXIT:
  53.     run("recmenu")
  54. CLEAR:
  55.     clr(REFER|B)
  56.     MEM_DOC = (0)
  57.     CON_NUM = (0)
  58.     CLIN_NUM = (0)
  59.     EMERG_NUM = (0)
  60.     ISIT_EMER = ("")
  61.     EXTRAS = (0)
  62.     goto START
  63. SCREEN:
  64.     saves(1)
  65.     window(1|25|24|78)
  66.     for(CTR|1|22|1)
  67.         {
  68.         pmsg(@R;CTR;@N;" ";@R;CONSULTS[CTR];@N|1|CTR|N|N|S|)
  69.         }
  70.     CON_CTR = (CTR+1)
  71.     for(CTR|1|22|1)
  72.         {
  73.         pmsg(@R;CON_CTR;@N;" ";@R;CONSULTS[CON_CTR];@N|25|CTR|N|N|S|)
  74.         CON_CTR = (CON_CTR+1)
  75.         }
  76.     pmsg("ENTER NUMBER"|23|23|N|N||CON_NUM)
  77.     redsp(1)
  78.     ret
  79. SCREEN2:
  80.     saves(1)
  81.     window(1|25|24|78)
  82.     for(CTR|1|22|1)
  83.         {
  84.         pmsg(@R;CTR;@N;" ";@R;CLINICS[CTR];@N|1|CTR|N|N|S|)
  85.         }
  86.     CON_CTR = (CTR+1)
  87.     for(CTR|1|22|1)
  88.         {
  89.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|CTR|N|N|S|)
  90.         CON_CTR = (CON_CTR+1)
  91.         }
  92.     pmsg("ENTER NUMBER"|23|23|N|N||CLIN_NUM)
  93.     redsp(1)
  94.     ret
  95. SCREEN3:
  96.     saves(1)
  97.     window(1|25|24|78)
  98.     for(CTR|1|22|1)
  99.         {
  100.         pmsg(@R;CTR;@N;" ";@R;CLINICS[CTR];@N|1|CTR|N|N|S|)
  101.         }
  102.     CON_CTR = (CTR+1)
  103.     for(CTR|1|22|1)
  104.         {
  105.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|CTR|N|N|S|)
  106.         CON_CTR = (CON_CTR+1)
  107.         }
  108.     pmsg("ENTER NUMBER"|23|23|N|N||EMERG_NUM)
  109.     redsp(1)
  110.     ret
  111. SCR2:
  112.     gosub SCREEN3
  113.     enter(EMERG_NUM||||N|N|N|||N)
  114.     if EMERG_NUM = (0) goto START
  115.     if EMERG_NUM > (44) goto START
  116.     goto ADDER
  117. \STNEW     
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.                        UPDATE REFERRALS SINGLY
  126.                    ╔═════════════════════════════╗
  127.                    ║  DOCTOR NUMBER 12345 :&     ║
  128.                    ║  EMERGERGENCY Y/N    :&     ║
  129.                    ║  CONSULTANT NUMBER   :&     ║
  130.                    ║  CLINIC NUMBER       :&     ║
  131.                    ║  EMERGENCY NUMBER    :&     ║
  132.                    ╚═════════════════════════════╝
  133.                              ESC - EXIT
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. \
  143. MEM_DOC
  144. ISIT_EMER
  145. CON_NUM
  146. CLIN_NUM
  147. EMERG_NUM
  148. \
  149.  
  150.